﻿Imports SS
Imports SS.Databases
Imports SS.Databases.Connecter
Imports SS.ApplicationBlock

Public Class Company

    Dim connOra As DBOracle
    Public ReadOnly Property CurrentConnection As DBOracle
        Get
            Return connOra
        End Get
    End Property

    Public Sub New()

    End Sub

    Public Sub New(ByVal Transaction As Boolean)
        connOra = New DBOracle(Common.Utility.ConnectString, Transaction)
    End Sub

    Public Function Insert(ByVal value As Entity.CompanyItem) As Boolean
        Dim strSql As String
        strSql = ORM.Broker.RetrieveInsert(value, Common.Utility.Schema & ".RNWM_COMPANY")
        If connOra.ExecuteNonQuery(strSql) = 1 Then
            Return True
        Else
            Return False
        End If
    End Function

    Public Shared Sub Update(ByVal value As Entity.CompanyItem)

    End Sub

    Public Shared Sub Delete(ByVal company_id As String)

    End Sub



End Class
